﻿Imports System.Data
Imports System.Data.SqlClient
Public Class UsrCtrlHocKy
    Public Sub LoadCBXHocKy()
        cbxHocKy.Items.Add("1")
        cbxHocKy.Items.Add("2")
    End Sub
    Public Sub LoadCBXNamHoc()
        Dim HocKy_BUS As HocKyBUS = New HocKyBUS
        Dim sql As String = "select Distinct(NamHoc) from HOCKY"
        HocKy_BUS.LoadCBX(cbxNamHoc, sql)
        cbxNamHoc.DisplayMember = "NamHoc"
        cbxNamHoc.ValueMember = "NamHoc"
    End Sub
    Public Sub LoadDaTa()
        Dim HocKy_BUS As HocKyBUS = New HocKyBUS
        Dim sql As String = "select * from HOCKY"
        HocKy_BUS.LoadDGV(dgvHocKy, sql)
    End Sub
    Private Sub btnSearchNamHoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearchNamHoc.Click
        Dim HocKy_BUS As HocKyBUS = New HocKyBUS
        Dim sql As String = "select * from HOCKY where NamHoc = " & Convert.ToInt32(cbxNamHoc.SelectedValue.ToString())
        HocKy_BUS.LoadDGV(dgvHocKy, sql)
    End Sub

    Private Sub btnThemHocKy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThemHocKy.Click
        Dim HocKy_BUS As HocKyBUS = New HocKyBUS
        Dim hk As HocKyDTO = New HocKyDTO
        hk.MaHocKy = txtMaHocKy.Text
        hk.TenHocKy = Convert.ToInt32(cbxHocKy.Text)
        hk.NamHoc = Convert.ToInt32(txtNamHoc.Text)
        If (HocKy_BUS.ThemHocKy(hk)) Then
            MessageBox.Show("Thêm học kỳ thành công!", "^^", MessageBoxButtons.OK)
            LoadDaTa()
        Else
            MessageBox.Show("Dữ liệu nhập vào chưa đủ, mời kiểm tra lại", "Opps!", MessageBoxButtons.OK)
        End If
    End Sub
    Private Sub btnXoaHocKy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXoaHocKy.Click
        Dim HocKy_BUS As HocKyBUS = New HocKyBUS
        Dim index As DataGridViewSelectedRowCollection = dgvHocKy.SelectedRows
        For Each A As DataGridViewRow In index
            Dim MaHocKy As String = A.Cells(0).Value.ToString()
            Dim sql As String = "select * from BaoCao where MaHocKy ='" & MaHocKy & "'"
            Dim GetSL As DataProvider = New DataProvider
            Dim reader As SqlDataReader = GetSL.SQL_ExcuteQueryReader(sql)
            Dim result As MsgBoxResult
            If (reader.HasRows) Then
                result = MessageBox.Show("Bạn có chắc muốn xóa luôn tất cả báo cáo ở học kì này!", "???", MessageBoxButtons.OKCancel)
                If (result = MsgBoxResult.Cancel) Then  'ok chưa?
                    Return
                ElseIf (result = MsgBoxResult.Ok) Then
                    sql = "select * from KETQUA where MaHocKy ='" & MaHocKy & "'"
                    reader = GetSL.SQL_ExcuteQueryReader(sql)
                    If (reader.HasRows) Then
                        result = MessageBox.Show("Bạn có chắc muốn xóa luôn tất cả kết quả ở học kì này!", "???", MessageBoxButtons.OKCancel)
                        If (result = MsgBoxResult.Cancel) Then  'ok lun chưa? rùi nhấn ctrl + f5 dùm em đi
                            Return
                        ElseIf (result = MsgBoxResult.Ok) Then
                            If (HocKy_BUS.XoaHocKy(MaHocKy) = False) Then
                                MessageBox.Show("Xoá không thành công vui lòng kiểm tra lại kết nối mạng !!!", "Opps!", MessageBoxButtons.OK)
                                Return
                            End If
                            'MessageBox.Show(MaHocKy)
                        End If
                    Else
                        If (HocKy_BUS.XoaHocKy(MaHocKy) = False) Then
                            MessageBox.Show("Xoá không thành công vui lòng kiểm tra lại kết nối mạng !!!", "Opps!", MessageBoxButtons.OK)
                            Return
                        End If
                    End If
                End If
            Else
                If (HocKy_BUS.XoaHocKy(MaHocKy) = False) Then
                    MessageBox.Show("Xoá không thành công vui lòng kiểm tra lại kết nối mạng !!!", "Opps!", MessageBoxButtons.OK)
                    Return
                End If
            End If
        Next
        MessageBox.Show("Xóa thành công !!!", "^^", MessageBoxButtons.OK)
        LoadDaTa()
    End Sub
    Private Sub btnSuaHocKy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuaHocKy.Click
        Dim HocKy_BUS As HocKyBUS = New HocKyBUS
        Dim hk As HocKyDTO = New HocKyDTO
        hk.MaHocKy = txtMaHocKy.Text
        hk.TenHocKy = Convert.ToInt32(cbxHocKy.Text)
        hk.NamHoc = Convert.ToInt32(txtNamHoc.Text)
        If (HocKy_BUS.SuaHocKy(hk)) Then
            MessageBox.Show("Cập Nhật học kỳ thành công!", "^^", MessageBoxButtons.OK)
            LoadDaTa()
        Else
            MessageBox.Show("Dữ liệu nhập vào chưa đủ, mời kiểm tra lại", "Opps!", MessageBoxButtons.OK)
        End If
    End Sub

    Private Sub dgvHocKy_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgvHocKy.SelectionChanged
        txtMaHocKy.Text = dgvHocKy.CurrentRow.Cells(0).Value
        cbxHocKy.Text = dgvHocKy.CurrentRow.Cells(1).Value
        txtNamHoc.Text = dgvHocKy.CurrentRow.Cells(2).Value
    End Sub
End Class
